home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 August / PC Plus Super CD (Issue 106) (PCP106) (August 1995).iso / pcplus / handson / helpscn / randwall.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-06  |  1.1 KB  |  27 lines
  1. 10 ' *** Randomise the Windows wallpaper on each boot-up ***
  2. 20 ' Windows must be set up to use a wallpaper file called TODAY.BMP
  3. 30 ' Edit the final few lines of this file to incoporate the names
  4. 40 ' of graphics files that you want to become wallpaper
  5. 50 RANDOMIZE TIMER
  6. 60 I = 1: READ I$(I)
  7. 70 WHILE I$(I) <> "nomore"
  8. 80   I = I + 1
  9. 90   READ I$(I)
  10. 100 WEND
  11. 110 IF I = 1 THEN PRINT "No data to read": SYSTEM
  12. 120 R = 1 + INT(RND * (I - 1))
  13. 130 ' if your bitmap files aren't in \WINDOWS, change the first part of the
  14. 140 ' next line   |<----->| to name the correct directory
  15. 150 COPY$ = "copy \windows\" + I$(R) + " \windows\today.bmp"
  16. 160 PRINT COPY$
  17. 170 SHELL COPY$
  18. 180 SYSTEM
  19. 190 ' Change the next lines to the names of your own files
  20. 200 ' Have as many DATA items/lines as you like but the final
  21. 210 ' item MUST be 'nomore' (lower case) to mark the end of
  22. 220 ' the list. Don't forget the comma between items on the
  23. 230 ' same line.
  24. 240 DATA ARCADE.BMP,ARGYLE.BMP,CASTLE.BMP,EGYPT.BMP,HONEY.BMP
  25. 250 DATA REDBRICK.BMP,RIVETS.BMP,SQUARES.BMP,ZIGZAG.BMP
  26. 260 DATA nomore
  27.